home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / graphics / pixel10 / pixelbrd.frm < prev    next >
Text File  |  1994-09-24  |  4KB  |  138 lines
  1. VERSION 2.00
  2. Begin Form frmPixelBoard 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ClientHeight    =   735
  5.    ClientLeft      =   1290
  6.    ClientTop       =   3060
  7.    ClientWidth     =   7035
  8.    ControlBox      =   0   'False
  9.    Height          =   1170
  10.    Icon            =   PIXELBRD.FRX:0000
  11.    Left            =   1215
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   735
  16.    ScaleWidth      =   7035
  17.    Top             =   2700
  18.    Width           =   7185
  19.    Begin Timer ScrollImage 
  20.       Enabled         =   0   'False
  21.       Interval        =   10
  22.       Left            =   2925
  23.       Top             =   1500
  24.    End
  25.    Begin PictureClip picChar 
  26.       Cols            =   93
  27.       Location        =   "25380,450,1485,-15"
  28.       Picture         =   PIXELBRD.FRX:0302
  29.    End
  30.    Begin TextBox txtMessage 
  31.       Height          =   375
  32.       Left            =   525
  33.       TabIndex        =   3
  34.       Text            =   "PIXEL BOARD BY: DAMON BRODIE !!!"
  35.       Top             =   900
  36.       Width           =   2880
  37.    End
  38.    Begin SSPanel pnlBorder 
  39.       BevelInner      =   1  'Inset
  40.       BevelWidth      =   2
  41.       BorderWidth     =   5
  42.       Height          =   750
  43.       Left            =   0
  44.       TabIndex        =   0
  45.       Top             =   0
  46.       Width           =   7035
  47.       Begin SSPanel pnlWindow 
  48.          BevelOuter      =   0  'None
  49.          BevelWidth      =   2
  50.          BorderWidth     =   5
  51.          Height          =   465
  52.          Left            =   135
  53.          TabIndex        =   1
  54.          Top             =   135
  55.          Width           =   6750
  56.          Begin PictureBox picMessage 
  57.             AutoRedraw      =   -1  'True
  58.             BackColor       =   &H00000000&
  59.             Height          =   480
  60.             Left            =   30
  61.             ScaleHeight     =   30
  62.             ScaleMode       =   3  'Pixel
  63.             ScaleWidth      =   452
  64.             TabIndex        =   2
  65.             Top             =   0
  66.             Width           =   6810
  67.             Begin Image imgChar 
  68.                Height          =   435
  69.                Index           =   1
  70.                Left            =   675
  71.                Top             =   0
  72.                Width           =   270
  73.             End
  74.          End
  75.       End
  76.    End
  77. End
  78. Option Explicit
  79. ' Pixel Board 1.0
  80. ' September 24, 1994
  81. ' Visual Basic 3.0 Prof.
  82. ' By: Damon Brodie
  83. ' dbrodie@nbnet.nb.ca
  84. ' email me with any suggestions you have!!
  85.  
  86.  
  87. Dim PixelX As Integer
  88. Dim PixelY As Integer
  89. Dim ReturnToStart As Long
  90.  
  91. Sub FixMessage (Mess$)
  92. ' Put spaces on either side of message so that it scrolls on and off.
  93. Mess$ = Space(25) + Trim(Mess$) + Space(25)
  94. End Sub
  95.  
  96. Sub Form_Load ()
  97. Dim Temp$
  98. PixelX = Screen.TwipsPerPixelX
  99. PixelY = Screen.TwipsPerPixelY
  100. Temp$ = txtMessage.Text
  101. FixMessage Temp$
  102. InitImages Temp$
  103. ScrollImage.Enabled = True
  104. End Sub
  105.  
  106. Sub imgChar_Click (Index As Integer)
  107. End
  108. End Sub
  109.  
  110. Sub InitImages (Mess$)
  111. Dim t As Integer
  112. Dim LeftLoc  As Long
  113. LeftLoc = 0
  114. picMessage.Top = 0
  115. picMessage.Width = (imgChar(1).Width * PixelX) * Len(Mess$)
  116. ReturnToStart = -((Len(Mess$) - 25) * imgChar(1).Width) * PixelX
  117.  
  118. For t = 2 To Len(Mess$)
  119.    Load imgChar(t)
  120. Next
  121.  
  122. For t = 1 To Len(Mess$)
  123.    imgChar(t).Left = LeftLoc
  124.    imgChar(t).Top = 0
  125.    imgChar(t).Picture = picChar.GraphicCell(Asc(Mid(Mess$, t, 1)) - 32)
  126.    imgChar(t).Visible = True
  127.    LeftLoc = LeftLoc + 18
  128. Next
  129. End Sub
  130.  
  131. Sub ScrollImage_Timer ()
  132. picMessage.Left = picMessage.Left - 3 * PixelX
  133. If picMessage.Left < ReturnToStart Then
  134.    picMessage.Left = 0
  135. End If
  136. End Sub
  137.  
  138.